COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	\input dochdr
C00003 00003	\pascal
C00005 ENDMK
C⊗;
\input dochdr

\def\dispentry#1#2{{}
	\spaceskip 3.333pt plus 10pt minus 2pt
	\xspaceskip 4.444pt plus 11pt minus 3pt
	\parindent 0pt
	$$\hbox par 11cm{\hangindent 3cm after 1\hbox to 3cm{#1\hfil\quad}#2}
	$$
	\parindent 20pt
	}
\def\dispar#1\par{{}
	\spaceskip 3.333pt plus 10pt minus 2pt
	\xspaceskip 4.444pt plus 11pt minus 3pt
	\parindent 0pt
	$$\hbox par 10cm{#1}
	$$
	\parindent 20pt
	}
\def\hide#1{\hbox to 0pt{\hss#1}}
\def\α{\hide{-}\ }
\def\β{\hide{$\bullet$}\ }
\def\runningrighthead#1{\gdef\chead{\:m#1}} %\runningrighthead sets chead
 
\advcount0
\pascal
\3\2\&{program} $\\{YIELD}(\\{OUTPUT})$\1;
\3\2\1\&{var} $\\{BRACKET},\45\\{YIELD}\mathrel:\\{integer}$;
\3\2\&{begin}
\2$\\{writeln}(\.{'Break-even\ Bracket\ vs\ current\ yield'})$;
\2$\\{writeln}(\.{'current\ \ \ Tax'})$;
\2$\\{writeln}(\.{'yield\ \ \ bracket'})$;
\2\1\&{for} $\\{YIELD}\mathrel:=13\mathrel{\&{to}}30$ \&{do}
\2\&{begin}
\2$\\{BRACKET}\mathrel:=100-(1260\mathbin{\&{div}}\\{YIELD})$;
\2\1\&{if} $\\{BRACKET}<=50$ \&{then}
\2\1$\\{writeln}(\\{YIELD}\mathrel:3,\45\\{BRACKET}\mathrel:9)$\3\3;
\2\3\&{end};
\2\3\&{end}.
\par\vfill\eject



\end

NOTE: A \3 at the start of a line does not always take effect until after
the current line has been printed